Delphi Magazine Collection 2001/Delphi Magazine Collection 20001 (2001).iso/DISKS/Issue53/DataMod/BusinessLogic/BusinessLogicU3.dfm

Text File | 1999-11-27 | 3.4 KB | 179 lines

object Form3: TForm3
  Left = 541
  Top = 213
  Width = 311
  Height = 431
  Caption = 'Context Specific Use Of A Data Module'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 32
    Top = 48
    Width = 35
    Height = 13
    Caption = 'CustNo'
    FocusControl = DBEdit1
  end
  object Label2: TLabel
    Left = 32
    Top = 88
    Width = 44
    Height = 13
    Caption = 'Company'
    FocusControl = DBEdit2
  end
  object Label3: TLabel
    Left = 32
    Top = 128
    Width = 28
    Height = 13
    Caption = 'Addr1'
    FocusControl = DBEdit3
  end
  object Label4: TLabel
    Left = 32
    Top = 168
    Width = 28
    Height = 13
    Caption = 'Addr2'
    FocusControl = DBEdit4
  end
  object Label5: TLabel
    Left = 32
    Top = 208
    Width = 17
    Height = 13
    Caption = 'City'
    FocusControl = DBEdit5
  end
  object Label6: TLabel
    Left = 32
    Top = 248
    Width = 25
    Height = 13
    Caption = 'State'
    FocusControl = DBEdit6
  end
  object Label7: TLabel
    Left = 32
    Top = 288
    Width = 15
    Height = 13
    Caption = 'Zip'
    FocusControl = DBEdit7
  end
  object Label8: TLabel
    Left = 32
    Top = 328
    Width = 36
    Height = 13
    Caption = 'Country'
    FocusControl = DBEdit8
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 303
    Height = 41
    Align = alTop
    TabOrder = 0
    object DBNavigator1: TDBNavigator
      Left = 16
      Top = 8
      Width = 240
      Height = 25
      DataSource = DataModule1.DataSource1
      TabOrder = 0
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 375
    Width = 303
    Height = 29
    Panels = <>
    SimplePanel = False
  end
  object DBEdit1: TDBEdit
    Left = 32
    Top = 64
    Width = 64
    Height = 21
    DataField = 'CustNo'
    DataSource = DataModule1.DataSource1
    TabOrder = 2
  end
  object DBEdit2: TDBEdit
    Left = 32
    Top = 104
    Width = 184
    Height = 21
    DataField = 'Company'
    DataSource = DataModule1.DataSource1
    TabOrder = 3
  end
  object DBEdit3: TDBEdit
    Left = 32
    Top = 144
    Width = 184
    Height = 21
    DataField = 'Addr1'
    DataSource = DataModule1.DataSource1
    TabOrder = 4
  end
  object DBEdit4: TDBEdit
    Left = 32
    Top = 184
    Width = 184
    Height = 21
    DataField = 'Addr2'
    DataSource = DataModule1.DataSource1
    TabOrder = 5
  end
  object DBEdit5: TDBEdit
    Left = 32
    Top = 224
    Width = 94
    Height = 21
    DataField = 'City'
    DataSource = DataModule1.DataSource1
    TabOrder = 6
  end
  object DBEdit6: TDBEdit
    Left = 32
    Top = 264
    Width = 124
    Height = 21
    DataField = 'State'
    DataSource = DataModule1.DataSource1
    TabOrder = 7
  end
  object DBEdit7: TDBEdit
    Left = 32
    Top = 304
    Width = 64
    Height = 21
    DataField = 'Zip'
    DataSource = DataModule1.DataSource1
    TabOrder = 8
  end
  object DBEdit8: TDBEdit
    Left = 32
    Top = 344
    Width = 124
    Height = 21
    DataField = 'Country'
    DataSource = DataModule1.DataSource1
    TabOrder = 9
  end
end